﻿Public Class Menu

    Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click
        Close()
    End Sub


    Private Sub TheoNgayToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TheoNgayToolStripMenuItem.Click
        Dim bcngay As New BaoCaoNgay()
        bcngay.ShowDialog()
    End Sub

    Private Sub ThamSôToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim fthamso As New Thamso()
        fthamso.ShowDialog()
    End Sub


    Private Sub BênhNhânToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BênhNhânToolStripMenuItem.Click
        Dim ftim As New TimBenhNhan()
        ftim.ShowDialog()
    End Sub

    Private Sub ThuôcToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThuôcToolStripMenuItem1.Click
        Dim fthuoc As New timthuoc()
        fthuoc.ShowDialog()
    End Sub

    Private Sub DanhSachToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DanhSachToolStripMenuItem.Click
        Dim fds As New DanhSachBenhNhan()
        fds.ShowDialog()
    End Sub

    Private Sub SôLươngKhamToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SôLươngKhamToolStripMenuItem.Click
        Dim fslkham As New soluonbenhnhan()
        fslkham.ShowDialog()
    End Sub

    Private Sub TiToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TiToolStripMenuItem.Click
        Dim ftienkham As New tienkham()
        ftienkham.ShowDialog()
    End Sub

    Private Sub PhiêuĐăngKyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PhiêuĐăngKyToolStripMenuItem.Click
        Dim fphieudk As New Phieudangkykhambenh()
        fphieudk.ShowDialog()
    End Sub

    Private Sub PhiêuKhamBênhToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PhiêuKhamBênhToolStripMenuItem.Click
        Dim fphieukham As New PhieuKhamBenh()
        fphieukham.ShowDialog()
    End Sub

    Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
        Dim f1 As New import_excel()
        f1.ShowDialog()
    End Sub

    Private Sub ExcelToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExcelToolStripMenuItem.Click
        Dim f1 As New Save_excel()
        f1.ShowDialog()
    End Sub

    Private Sub NhâpThuôcToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NhâpThuôcToolStripMenuItem.Click
        Dim f1 As New BSungThuoc()
        f1.ShowDialog()
    End Sub

    Private Sub SôLươngTônToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SôLươngTônToolStripMenuItem.Click
        Dim f1 As New soluongthuoc()
        f1.ShowDialog()
    End Sub

    Private Sub ThamSôToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThamSôToolStripMenuItem.Click
        Dim f1 As New Thamso()
        f1.ShowDialog()
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub DanhSachThuocToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DanhSachThuocToolStripMenuItem.Click
        Dim f1 As New DanhSachThuoc()
        f1.ShowDialog()
    End Sub
End Class
